home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / HyperCard Archives / International / Danish v1.2.5 / Flere stakke / Adresse / background_2179.txt < prev    next >
Text File  |  1989-09-15  |  7KB  |  319 lines
  1. -- background: 2179 from stack: in
  2. -- bmap block id: 3335
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Kartotekskort
  6. ----- HyperTalk script -----
  7. on closeField
  8.   --put the date into field "dato"
  9. end closeField
  10.  
  11. on newCard
  12.   tabKey
  13. end newCard
  14.  
  15.  
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 01
  20. -- high flags: 0000
  21. -- rect: left=105 top=52 right=180 bottom=434
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 14
  27. -- style flags: 0
  28. -- line height: 18
  29. -- part name: Navn og adresse
  30.  
  31.  
  32. -- part 6 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=234 top=239 right=266 bottom=265
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1014 / 1014
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Prev
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   go to prev card
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 7 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=266 top=239 right=266 bottom=297
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 1013 / 1013
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Next
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   go to next card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 8 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=423 top=239 right=265 bottom=453
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 1012 / 1012
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Retur
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   visual effect iris close
  85.   pop card
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 11 (field)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=134 top=184 right=240 bottom=434
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 14
  99. -- style flags: 0
  100. -- line height: 18
  101. -- part name: Telefonnummer
  102.  
  103.  
  104. -- part 30 (field)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=338 top=244 right=262 bottom=425
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Dato
  116.  
  117.  
  118. -- part 36 (button)
  119. -- low flags: 00
  120. -- high flags: 0004
  121. -- rect: left=32 top=30 right=64 bottom=71
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 20098 / 20098
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Hjem
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect iris close
  133.   go "Home"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 37 (button)
  139. -- low flags: 00
  140. -- high flags: 0004
  141. -- rect: left=33 top=72 right=106 bottom=72
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 22855 / 22855
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Årskalender
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   set lockScreen to true
  153.   go stack "Kalender"
  154.   goSixMonthly the seconds
  155. end mouseUp
  156.  
  157.  
  158. -- part 38 (button)
  159. -- low flags: 00
  160. -- high flags: 0004
  161. -- rect: left=33 top=114 right=148 bottom=72
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 21209 / 21209
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Dagskalender
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   set lockScreen to true
  173.   go stack "Kalender"
  174.   goWeekly the seconds
  175.   set lockScreen to false
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 39 (button)
  181. -- low flags: 00
  182. -- high flags: 0004
  183. -- rect: left=33 top=240 right=274 bottom=72
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 20186 / 20186
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: 
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   answer "Sort√©r alle kortene i denne stak efter:" with "Fornavn" or "Efternavn" or "Annuller"
  195.   if it is "Fornavn"
  196.   then sort by first word of first line of field "Navn og adresse"
  197. else if it is "Efternavn"
  198. then sort by last word of first line of field "Navn og adresse"
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 40 (button)
  204. -- low flags: 00
  205. -- high flags: 0004
  206. -- rect: left=33 top=198 right=232 bottom=72
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 32670 / 32670
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: 
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   show all cards
  218. end mouseUp
  219.  
  220.  
  221.  
  222. -- part 41 (button)
  223. -- low flags: 00
  224. -- high flags: 0004
  225. -- rect: left=33 top=156 right=190 bottom=72
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 20965 / 20965
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Opgaver
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   go to card "Opgaver1" of stack "Kalender"
  237. end mouseUp
  238.  
  239.  
  240.  
  241. -- part 42 (button)
  242. -- low flags: 00
  243. -- high flags: 0000
  244. -- rect: left=103 top=181 right=203 bottom=130
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 30696 / 30696
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: 
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   get the selection
  256.   if it is empty then get first line of field "Telefonnummer"
  257.   if it is empty then ask "Ring til hvilket nummer?"
  258.   if it is not empty then
  259.     dial it
  260.   end if
  261. end mouseUp
  262.  
  263.  
  264.  
  265. -- part 43 (button)
  266. -- low flags: 00
  267. -- high flags: 0000
  268. -- rect: left=103 top=202 right=224 bottom=130
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: 
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   get the selection
  280.   if it is empty then get second line of field "Telefonnummer"
  281.   if it is empty then ask "Ring til hvilket nummer?"
  282.   if it is not empty then
  283.     push this card
  284.     visual effect zoom open
  285.     go to stack "Telefon"
  286.     dial it
  287.     pop card
  288.   end if
  289. end mouseUp
  290.  
  291.  
  292.  
  293. -- part 44 (button)
  294. -- low flags: 00
  295. -- high flags: 0000
  296. -- rect: left=103 top=223 right=245 bottom=130
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: 
  305. ----- HyperTalk script -----
  306. on mouseUp
  307.   get the selection
  308.   if it is empty then get third line of field "Telefonnummer"
  309.   if it is empty then ask "Ring til hvilket nummer?"
  310.   if it is not empty then
  311.     push this card
  312.     visual effect zoom open
  313.     go to stack "Telefon"
  314.     dial it
  315.     pop card
  316.   end if
  317. end mouseUp
  318.  
  319.